(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     28705,        999]
NotebookOptionsPosition[     23515,        814]
NotebookOutlinePosition[     24139,        838]
CellTagsIndexPosition[     24060,        833]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[{
 "New in: ",
 Cell["XX", "HistoryData",
  CellTags->"New"],
 " | Modified in: ",
 Cell[" ", "HistoryData",
  CellTags->"Modified"],
 " | Obsolete in: ",
 Cell[" ", "HistoryData",
  CellTags->"Obsolete"],
 " | Excised in: ",
 Cell[" ", "HistoryData",
  CellTags->"Excised"]
}], "History",
 CellID->1247902091],

Cell[CellGroupData[{

Cell["Categorization", "CategorizationSection",
 CellID->1122911449],

Cell["Symbol", "Categorization",
 CellLabel->"Entity Type",
 CellID->686433507],

Cell["InterfacialThinFilmNLS Package", "Categorization",
 CellLabel->"Paclet Name",
 CellID->396937216],

Cell["InterfacialThinFilmNLS`", "Categorization",
 CellLabel->"Context",
 CellID->259096691],

Cell["InterfacialThinFilmNLS/ref/PhaseMatchAngle", "Categorization",
 CellLabel->"URI",
 CellID->82094684]
}, Open  ]],

Cell[CellGroupData[{

Cell["Keywords", "KeywordsSection",
 CellID->477174294],

Cell["XXXX", "Keywords",
 CellChangeTimes->{{3.600363359231824*^9, 3.600363383524858*^9}},
 CellID->10659567]
}, Open  ]],

Cell[CellGroupData[{

Cell["Syntax Templates", "TemplatesSection",
 CellID->1872225408],

Cell[BoxData[""], "Template",
 CellLabel->"Additional Function Template",
 CellID->1562036412],

Cell[BoxData[""], "Template",
 CellLabel->"Arguments Pattern",
 CellID->158391909],

Cell[BoxData[""], "Template",
 CellLabel->"Local Variables",
 CellID->1360575930],

Cell[BoxData[""], "Template",
 CellLabel->"Color Equal Signs",
 CellID->793782254]
}, Closed]],

Cell[CellGroupData[{

Cell["Details", "DetailsSection",
 CellID->307771771],

Cell["XXXX", "Details",
 CellLabel->"Lead",
 CellID->670882175],

Cell["XXXX", "Details",
 CellLabel->"Developers",
 CellID->350963985],

Cell["XXXX", "Details",
 CellLabel->"Authors",
 CellID->8391405],

Cell["XXXX", "Details",
 CellLabel->"Feature Name",
 CellID->3610269],

Cell["XXXX", "Details",
 CellLabel->"QA",
 CellID->401364205],

Cell["XXXX", "Details",
 CellLabel->"DA",
 CellID->350204745],

Cell["XXXX", "Details",
 CellLabel->"Docs",
 CellID->732958810],

Cell["XXXX", "Details",
 CellLabel->"Features Page Notes",
 CellID->222905350],

Cell["XXXX", "Details",
 CellLabel->"Comments",
 CellID->240026365]
}, Closed]],

Cell[CellGroupData[{

Cell["PhaseMatchAngle", "ObjectName",
 CellID->1224892054],

Cell[TextData[{
 Cell["      ", "ModInfo"],
 Cell[BoxData[
  RowBox[{
   RowBox[{
    ButtonBox["PhaseMatchAngle",
     BaseStyle->"Link",
     ButtonData->"paclet:InterfacialThinFilmNLS/ref/PhaseMatchAngle"], "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        SubscriptBox[
         StyleBox["\[Omega]", "TR"], 
         StyleBox["1", "TR"]], ",", 
        SubscriptBox[
         StyleBox["\[Theta]", "TR"], 
         StyleBox["1", "TR"]]}], "}"}], "\[CenterEllipsis]", 
      RowBox[{"{", 
       RowBox[{
        SubscriptBox[
         StyleBox["\[Omega]", "TR"], 
         StyleBox["m", "TI"]], ",", 
        SubscriptBox[
         StyleBox["\[Theta]", "TR"], 
         StyleBox["m", "TI"]]}], "}"}]}]}]}], "]"}]], "InlineFormula"],
 "\[LineSeparator]calculates the (polar) phase matched angle of emission for \
a nonlinear polarization driven by ",
 Cell[BoxData[
  StyleBox["m", "TI"]], "InlineFormula",
  ShowStringCharacters->False],
 " input fields, each with associated frequency ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["\[Omega]", "TR"], 
   StyleBox["i", "TI"]]], "InlineFormula"],
 " and input angle ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["\[Theta]", "TR"], 
   StyleBox["i", "TI"]]], "InlineFormula"],
 " assuming the calculation is being performed where the refractive index ",
 Cell[BoxData[
  RowBox[{
   StyleBox["n", "TI"], "=", "1"}]], "InlineFormula",
  ShowStringCharacters->False],
 " for all light frequences (i.e. calculation performed in air or vacuum).  \
All fields must be coplanar, inclusion of calculation for the phase matched \
angles (both polar and azimuthal angles) for input fields with nonzero \
azimuth angle is planned.\n",
 Cell["      ", "ModInfo"],
 Cell[BoxData[
  RowBox[{
   RowBox[{
    ButtonBox["PhaseMatchAngle",
     BaseStyle->"Link",
     ButtonData->"paclet:InterfacialThinFilmNLS/ref/PhaseMatchAngle"], "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         SubscriptBox[
          StyleBox["\[Omega]", "TR"], 
          StyleBox["1", "TR"]], ",", 
         SubscriptBox[
          StyleBox["\[Theta]", "TR"], 
          StyleBox["1", "TR"]], ",", 
         SubscriptBox[
          StyleBox["n", "TI"], 
          StyleBox["1", "TR"]]}], "}"}], "\[CenterEllipsis]", 
       RowBox[{"{", 
        RowBox[{
         SubscriptBox[
          StyleBox["\[Omega]", "TR"], 
          StyleBox["m", "TI"]], ",", 
         SubscriptBox[
          StyleBox["\[Theta]", "TR"], 
          StyleBox["m", "TI"]], ",", 
         SubscriptBox[
          StyleBox["n", "TI"], 
          StyleBox["m", "TI"]]}], "}"}]}], ",", 
      SubscriptBox[
       StyleBox["n", "TI"], 
       StyleBox["wm", "TI"]]}]}]}], "]"}]], "InlineFormula"],
 "\[LineSeparator]specified the material refractive index for all input \
fields as well as the index at the wave-mixed frequence ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["n", "TI"], 
   StyleBox["wm", "TI"]]], "InlineFormula"],
 "."
}], "Usage",
 CellChangeTimes->{{3.600362751462969*^9, 3.600362788427021*^9}, {
  3.6003632090136127`*^9, 3.600363210093614*^9}}],

Cell[TextData[{
 "PhaseMatchAngle is determined by summing the wavevectors of the input \
fields, adding components that add photon energy to the wave-mixed output \
field and subtracting those that reduce photon energy: ",
 Cell[BoxData[
  RowBox[{
   SubscriptBox[
    StyleBox["k",
     FontWeight->"Bold"], 
    StyleBox["wm", "TI"]], "=", 
   RowBox[{
    RowBox[{
     SubscriptBox[
      StyleBox["k",
       FontWeight->"Bold"], 
      StyleBox["1", "TR"]], "\[PlusMinus]", 
     RowBox[{
      SubscriptBox[
       StyleBox["k",
        FontWeight->"Bold"], 
       StyleBox["2", "TR"]], "\[CenterEllipsis]"}]}], "\[PlusMinus]", 
    SubscriptBox[
     StyleBox["k",
      FontWeight->"Bold"], 
     StyleBox["m", "TI"]]}]}]], "InlineFormula",
  ShowStringCharacters->False]
}], "Notes",
 CellChangeTimes->{3.6003627986580353`*^9},
 CellID->1067943069],

Cell[TextData[{
 "For SFG ",
 Cell[BoxData[
  RowBox[{
   SubscriptBox[
    StyleBox["k",
     FontWeight->"Bold"], 
    StyleBox["wm", "TI"]], "=", 
   RowBox[{
    SubscriptBox[
     StyleBox["k",
      FontWeight->"Bold"], 
     StyleBox["1", "TR"]], "+", 
    SubscriptBox[
     StyleBox["k",
      FontWeight->"Bold"], 
     StyleBox["2", "TR"]]}]}]], "InlineFormula",
  ShowStringCharacters->False],
 " and for DFG ",
 Cell[BoxData[
  RowBox[{
   SubscriptBox[
    StyleBox["k",
     FontWeight->"Bold"], 
    StyleBox["wm", "TI"]], "=", 
   RowBox[{
    SubscriptBox[
     StyleBox["k",
      FontWeight->"Bold"], 
     StyleBox["1", "TR"]], "-", 
    SubscriptBox[
     StyleBox["k",
      FontWeight->"Bold"], 
     StyleBox["2", "TR"]]}]}]], "InlineFormula",
  ShowStringCharacters->False]
}], "Notes",
 CellID->762256211],

Cell[TextData[{
 ButtonBox["PhaseMatchAngle",
  BaseStyle->"Link",
  ButtonData->"paclet:InterfacialThinFilmNLS/ref/PhaseMatchAngle"],
 " is typically used to calculate the phase matched angle in the outermost \
(usually air) medium of a thin film system.  The result can then be used in \
conjuction with ",
 ButtonBox["RefractionAngle",
  BaseStyle->"Link",
  ButtonData->"paclet:TransferMatrixFormalism/ref/RefractionAngle"],
 " to compute the angles for all remaining materials in the thin film system. \
 "
}], "Notes",
 CellID->331980428],

Cell[TextData[{
 "PhaseMatchAngle can be used for wavemixing at sums or differences of input \
field frequencies by supplying positive or negative ",
 Cell[BoxData[
  SubscriptBox[
   StyleBox["\[Omega]", "TR"], 
   StyleBox["i", "TI"]]], "InlineFormula"],
 "."
}], "Notes",
 CellID->28334829]
}, Open  ]],

Cell[CellGroupData[{

Cell["Tutorials", "TutorialsSection",
 CellID->250839057],

Cell["XXXX", "Tutorials",
 CellID->341631938]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Demonstrations", "RelatedDemonstrationsSection",
 CellID->1268215905],

Cell["XXXX", "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],

Cell[CellGroupData[{

Cell["Related Links", "RelatedLinksSection",
 CellID->1584193535],

Cell[TextData[ButtonBox["D. B. O\[CloseCurlyQuote]Brien and A. M. Massari, \
\"Modeling multilayer thin film interference effects in interface-specific \
coherent nonlinear optical spectroscopies,\" J. Opt. Soc. Am. B 30, 1503 \
(2013).",
 BaseStyle->"Hyperlink",
 ButtonData->{
   URL["http://dx.doi.org/10.1364/JOSAB.30.001503"], None}]], "RelatedLinks",
 CellChangeTimes->{3.600363138766514*^9},
 CellID->1038487239]
}, Open  ]],

Cell[CellGroupData[{

Cell["See Also", "SeeAlsoSection",
 CellID->1255426704],

Cell[TextData[{
 Cell[BoxData[
  ButtonBox["NonlinearPolarization",
   BaseStyle->"Link",
   ButtonData->"paclet:InterfacialThinFilmNLS/ref/NonlinearPolarization"]], 
  "InlineFormula"],
 " \[EmptyVerySmallSquare] ",
 Cell[BoxData[
  ButtonBox["OutputTransferC",
   BaseStyle->"Link",
   ButtonData->"paclet:InterfacialThinFilmNLS/ref/OutputTransferC"]], 
  "InlineFormula"]
}], "SeeAlso",
 CellChangeTimes->{{3.6003630604384036`*^9, 3.600363070849418*^9}},
 CellID->685936]
}, Open  ]],

Cell[CellGroupData[{

Cell["More About", "MoreAboutSection",
 CellID->38303248],

Cell["XXXX", "MoreAbout",
 CellID->1665078683]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[GridBox[{
    {
     StyleBox["Examples", "PrimaryExamplesSection"], 
     ButtonBox[
      RowBox[{
       RowBox[{"More", " ", "Examples"}], " ", "\[RightTriangle]"}],
      BaseStyle->"ExtendedExamplesLink",
      ButtonData:>"ExtendedExamples"]}
   }],
  $Line = 0; Null]], "PrimaryExamplesSection",
 CellID->880084151],

Cell["\<\
Compute the phase-matched angles for SFG through an air-organic-glass-silicon \
thin film system:\
\>", "ExampleText",
 CellID->54502385],

Cell[BoxData[{
 RowBox[{"<<", "ThinFilmNLS`"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "TransferMatrixFormalism`Data`Indices`"}]}], "Input",
 CellChangeTimes->{{3.600362847434104*^9, 3.6003628537241125`*^9}},
 CellLabel->"In[1]:=",
 CellID->837669751],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Omega]1", "=", "12500"}], " ", 
      RowBox[{"(*", 
       SuperscriptBox["cm", 
        RowBox[{"-", "1"}]], "*)"}], ",", 
      RowBox[{"\[Theta]1", "=", 
       RowBox[{"65.", "\[Degree]"}]}], ",", "\[Theta]list1", ",", 
      RowBox[{"\[Omega]2", "=", "2900"}], " ", 
      RowBox[{"(*", 
       SuperscriptBox["cm", 
        RowBox[{"-", "1"}]], "*)"}], ",", 
      RowBox[{"\[Theta]2", "=", 
       RowBox[{"56.", "\[Degree]"}]}], ",", "\[Theta]list2", ",", "nlist"}], 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"nlist", "=", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", 
         RowBox[{"nPTCDIc8", "[", "#", "]"}], ",", 
         RowBox[{"nSiO2", "[", "#", "]"}], ",", 
         RowBox[{"nSi", "[", "#", "]"}]}], "}"}], "&"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"\[Theta]list1", "=", 
      RowBox[{"RefractionAngle", "[", 
       RowBox[{"\[Theta]1", ",", "1", ",", 
        RowBox[{"nlist", "[", "\[Omega]1", "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"\[Theta]list2", "=", 
      RowBox[{"RefractionAngle", "[", 
       RowBox[{"\[Theta]2", ",", "1", ",", 
        RowBox[{"nlist", "[", "\[Omega]2", "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"PhaseMatchAngle", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"\[Omega]1", ",", 
             RowBox[{"\[Theta]list1", "[", 
              RowBox[{"[", "v", "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"nlist", "[", "\[Omega]1", "]"}], "[", 
              RowBox[{"[", "v", "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"\[Omega]2", ",", 
             RowBox[{"\[Theta]list2", "[", 
              RowBox[{"[", "v", "]"}], "]"}], ",", 
             RowBox[{
              RowBox[{"nlist", "[", "\[Omega]2", "]"}], "[", 
              RowBox[{"[", "v", "]"}], "]"}]}], "}"}]}], "}"}], ",", 
         RowBox[{
          RowBox[{"nlist", "[", 
           RowBox[{"\[Omega]1", "+", "\[Omega]2"}], "]"}], "[", 
          RowBox[{"[", "v", "]"}], "]"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"v", ",", "4"}], "}"}]}], "]"}]}]}], "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellLabel->"In[2]:=",
 CellID->200594367],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.1012129693202843`", ",", 
   RowBox[{"0.9701922495796436`", "\[VeryThinSpace]", "+", 
    RowBox[{"0.0038255623009713926`", " ", "\[ImaginaryI]"}]}], ",", 
   "1.0607468995663865`", ",", 
   RowBox[{"1.0027759850121614`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.003847587322822294`", " ", "\[ImaginaryI]"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.600362969848276*^9},
 CellLabel->"Out[2]=",
 CellID->12296596]
}, Open  ]],

Cell["\<\
It is far more compact to compute the phase-matched angle in air and use \
Snell's law for the remaining material layers:\
\>", "ExampleText",
 CellID->448669652],

Cell[BoxData[{
 RowBox[{"<<", "ThinFilmNLS`"}], "\[IndentingNewLine]", 
 RowBox[{"<<", "Data`Indices`"}]}], "Input",
 CellLabel->"In[3]:=",
 CellID->279459295],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Omega]1", "=", "12500"}], " ", 
     RowBox[{"(*", 
      SuperscriptBox["cm", 
       RowBox[{"-", "1"}]], "*)"}], ",", 
     RowBox[{"\[Omega]2", "=", "2900"}], " ", 
     RowBox[{"(*", 
      SuperscriptBox["cm", 
       RowBox[{"-", "1"}]], "*)"}], ",", 
     RowBox[{"\[Theta]1", "=", 
      RowBox[{"65.", "\[Degree]"}]}], ",", 
     RowBox[{"\[Theta]2", "=", 
      RowBox[{"56.", "\[Degree]"}]}], ",", "\[Theta]air", ",", "nlist"}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"nlist", "=", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"1", ",", 
        RowBox[{"nPTCDIc8", "[", "#", "]"}], ",", 
        RowBox[{"nSiO2", "[", "#", "]"}], ",", 
        RowBox[{"nSi", "[", "#", "]"}]}], "}"}], "&"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"\[Theta]air", "=", 
     RowBox[{"PhaseMatchAngle", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\[Omega]1", ",", "\[Theta]1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"\[Omega]2", ",", "\[Theta]2"}], "}"}]}], "}"}], "]"}]}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{"RefractionAngle", "[", 
     RowBox[{"\[Theta]air", ",", "1", ",", 
      RowBox[{"nlist", "[", 
       RowBox[{"\[Omega]1", "+", "\[Omega]2"}], "]"}]}], "]"}]}]}], 
  "]"}]], "Input",
 CellLabel->"In[4]:=",
 CellID->80171998],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.1012129693202843`", ",", 
   RowBox[{"0.5093961222335045`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.005559577982838689`", " ", "\[ImaginaryI]"}]}], ",", 
   "0.6368893826379988`", ",", 
   RowBox[{"0.23402264719770588`", "\[VeryThinSpace]", "-", 
    RowBox[{"0.0008048103966162548`", " ", "\[ImaginaryI]"}]}]}], 
  "}"}]], "Output",
 ImageSize->{456, 15},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[4]=",
 CellID->264251506]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["More Examples", "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["Scope", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1293636265],

Cell["The phase-matched angles for DFG and SFG are unique: ", "ExampleText",
 CellID->115737142],

Cell["\<\
<<ThinFilmNLS`
<<TransferMatrixFormalism`Data`Indices`\
\>", "Input",
 CellLabel->"In[1]:=",
 CellID->232829353],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Module", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Omega]1", "=", "12500"}], " ", 
     RowBox[{"(*", 
      SuperscriptBox["cm", 
       RowBox[{"-", "1"}]], "*)"}], ",", 
     RowBox[{"\[Omega]2", "=", "2900"}], " ", 
     RowBox[{"(*", 
      SuperscriptBox["cm", 
       RowBox[{"-", "1"}]], "*)"}], ",", 
     RowBox[{"\[Theta]1", "=", 
      RowBox[{"65.", "\[Degree]"}]}], ",", 
     RowBox[{"\[Theta]2", "=", 
      RowBox[{"56.", "\[Degree]"}]}], ",", "\[Theta]air", ",", "nlist"}], 
    "}"}], ",", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\[Theta]air", "[", "\"\<SFG\>\"", "]"}], "=", 
     RowBox[{"PhaseMatchAngle", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\[Omega]1", ",", "\[Theta]1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"\[Omega]2", ",", "\[Theta]2"}], "}"}]}], "}"}], "]"}]}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\[Theta]air", "[", "\"\<DFG\>\"", "]"}], "=", 
     RowBox[{"PhaseMatchAngle", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\[Omega]1", ",", "\[Theta]1"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "\[Omega]2"}], ",", "\[Theta]2"}], "}"}]}], "}"}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"nlist", "[", "\"\<SFG\>\"", "]"}], "=", 
     RowBox[{
      RowBox[{"{", "1", "}"}], "~", "Join", "~", 
      RowBox[{"Through", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"nPTCDIc8", ",", "nSiO2", ",", "nSi"}], "}"}], "[", 
        RowBox[{"\[Omega]1", "+", "\[Omega]2"}], "]"}], "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"nlist", "[", "\"\<DFG\>\"", "]"}], "=", 
     RowBox[{
      RowBox[{"{", "1", "}"}], "~", "Join", "~", 
      RowBox[{"Through", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"nPTCDIc8", ",", "nSiO2", ",", "nSi"}], "}"}], "[", 
        RowBox[{"\[Omega]1", "-", "\[Omega]2"}], "]"}], "]"}]}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"TableForm", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"RefractionAngle", "[", 
         RowBox[{
          RowBox[{"\[Theta]air", "[", "#", "]"}], ",", "1", ",", 
          RowBox[{"nlist", "[", "#", "]"}]}], "]"}], "&"}], "/@", 
       RowBox[{"{", 
        RowBox[{"\"\<SFG\>\"", ",", "\"\<DFG\>\""}], "}"}]}], ",", 
      RowBox[{"TableHeadings", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"\"\<SFG\>\"", ",", "\"\<DFG\>\""}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Air\>\"", ",", 
           "\"\<PTCDI-\!\(\*SubscriptBox[\(C\), \(8\)]\)\>\"", ",", 
           "\"\<\!\(\*SubscriptBox[\(SiO\), \(2\)]\)\>\"", ",", 
           "\"\<Si\>\""}], "}"}]}], "}"}]}]}], "]"}]}]}], "]"}]], "Input",
 CellLabel->"In[2]:=",
 CellID->361170273],

Cell[BoxData[
 TagBox[
  TagBox[GridBox[{
     {
      StyleBox["\[Null]",
       ShowStringCharacters->False], 
      TagBox["\<\"Air\"\>",
       HoldForm], 
      TagBox["\<\"PTCDI-\\!\\(\\*SubscriptBox[\\(C\\), \\(8\\)]\\)\"\>",
       HoldForm], 
      TagBox["\<\"\\!\\(\\*SubscriptBox[\\(SiO\\), \\(2\\)]\\)\"\>",
       HoldForm], 
      TagBox["\<\"Si\"\>",
       HoldForm]},
     {
      TagBox["\<\"SFG\"\>",
       HoldForm], "1.1012129693202843`", 
      RowBox[{"0.5093961222335045`", "\[VeryThinSpace]", "-", 
       RowBox[{"0.005559577982838689`", " ", "\[ImaginaryI]"}]}], 
      "0.6368893826379988`", 
      RowBox[{"0.23402264719770588`", "\[VeryThinSpace]", "-", 
       RowBox[{"0.0008048103966162548`", " ", "\[ImaginaryI]"}]}]},
     {
      TagBox["\<\"DFG\"\>",
       HoldForm], "1.1934613032577654`", 
      RowBox[{"0.574930205240786`", "\[VeryThinSpace]", "-", 
       RowBox[{"0.0037113528238927117`", " ", "\[ImaginaryI]"}]}], 
      "0.687492016277864`", 
      RowBox[{"0.26400106085724523`", "\[VeryThinSpace]", "-", 
       RowBox[{"0.00001199759249712152`", " ", "\[ImaginaryI]"}]}]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxDividers->{
     "Columns" -> {False, True, {False}, False}, "ColumnsIndexed" -> {}, 
      "Rows" -> {False, True, {False}, False}, "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[2.0999999999999996`]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   {OutputFormsDump`HeadedRows, OutputFormsDump`HeadedColumns}],
  Function[BoxForm`e$, 
   TableForm[
   BoxForm`e$, 
    TableHeadings -> {{"SFG", "DFG"}, {
      "Air", "PTCDI-\!\(\*SubscriptBox[\(C\), \(8\)]\)", 
       "\!\(\*SubscriptBox[\(SiO\), \(2\)]\)", "Si"}}]]]], "Output",
 ImageSize->{545, 43},
 ImageMargins->{{0, 0}, {0, 0}},
 ImageRegion->{{0, 1}, {0, 1}},
 CellLabel->"Out[2]//TableForm=",
 CellID->79155983]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[ButtonBox["SEE ALSO",
 BaseStyle->None,
 Appearance->{Automatic, None},
 Evaluator->None,
 Method->"Preemptive",
 ButtonFunction:>(FrontEndExecute[{
    FrontEnd`SelectionMove[
     FrontEnd`SelectedNotebook[], All, ButtonCell], 
    FrontEndToken["OpenCloseGroup"], 
    FrontEnd`SelectionMove[
     FrontEnd`SelectedNotebook[], After, 
     CellContents]}]& )]], "SeeAlsoSection",
 CellID->218889428],

Cell[BoxData[
 InterpretationBox[Cell["Generalizations & Extensions", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1020263627],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[Cell["Options", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2061341341],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1757724783],

Cell[BoxData[
 InterpretationBox[Cell["XXXX", "ExampleSubsection"],
  $Line = 0; Null]], "ExampleSubsection",
 CellID->1295379749]
}, Closed]],

Cell[BoxData[
 InterpretationBox[Cell["Applications", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->258228157],

Cell[BoxData[
 InterpretationBox[Cell["Properties & Relations", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->2123667759],

Cell[BoxData[
 InterpretationBox[Cell["Possible Issues", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1305812373],

Cell[BoxData[
 InterpretationBox[Cell["Interactive Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->1653164318],

Cell[BoxData[
 InterpretationBox[Cell["Neat Examples", "ExampleSection"],
  $Line = 0; Null]], "ExampleSection",
 CellID->589267740]
}, Open  ]]
},
WindowSize->{700, 770},
WindowMargins->{{4, Automatic}, {Automatic, 0}},
CellContext->"Global`",
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "FunctionPageStyles.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{
 "ExtendedExamples"->{
  Cell[16166, 582, 100, 2, 70, "ExtendedExamplesSection",
   CellTags->"ExtendedExamples",
   CellID->1854448968]}
 }
*)
(*CellTagsIndex
CellTagsIndex->{
 {"ExtendedExamples", 23921, 826}
 }
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 324, 14, 22, "History",
 CellID->1247902091],
Cell[CellGroupData[{
Cell[906, 38, 68, 1, 27, "CategorizationSection",
 CellID->1122911449],
Cell[977, 41, 79, 2, 31, "Categorization",
 CellID->686433507],
Cell[1059, 45, 103, 2, 31, "Categorization",
 CellID->396937216],
Cell[1165, 49, 92, 2, 31, "Categorization",
 CellID->259096691],
Cell[1260, 53, 106, 2, 31, "Categorization",
 CellID->82094684]
}, Open  ]],
Cell[CellGroupData[{
Cell[1403, 60, 55, 1, 27, "KeywordsSection",
 CellID->477174294],
Cell[1461, 63, 109, 2, 17, "Keywords",
 CellID->10659567]
}, Open  ]],
Cell[CellGroupData[{
Cell[1607, 70, 65, 1, 27, "TemplatesSection",
 CellID->1872225408],
Cell[1675, 73, 94, 2, 29, "Template",
 CellID->1562036412],
Cell[1772, 77, 82, 2, 29, "Template",
 CellID->158391909],
Cell[1857, 81, 81, 2, 29, "Template",
 CellID->1360575930],
Cell[1941, 85, 82, 2, 29, "Template",
 CellID->793782254]
}, Closed]],
Cell[CellGroupData[{
Cell[2060, 92, 53, 1, 17, "DetailsSection",
 CellID->307771771],
Cell[2116, 95, 63, 2, 70, "Details",
 CellID->670882175],
Cell[2182, 99, 69, 2, 70, "Details",
 CellID->350963985],
Cell[2254, 103, 64, 2, 70, "Details",
 CellID->8391405],
Cell[2321, 107, 69, 2, 70, "Details",
 CellID->3610269],
Cell[2393, 111, 61, 2, 70, "Details",
 CellID->401364205],
Cell[2457, 115, 61, 2, 70, "Details",
 CellID->350204745],
Cell[2521, 119, 63, 2, 70, "Details",
 CellID->732958810],
Cell[2587, 123, 78, 2, 70, "Details",
 CellID->222905350],
Cell[2668, 127, 67, 2, 70, "Details",
 CellID->240026365]
}, Closed]],
Cell[CellGroupData[{
Cell[2772, 134, 58, 1, 62, "ObjectName",
 CellID->1224892054],
Cell[2833, 137, 3132, 94, 197, "Usage"],
Cell[5968, 233, 861, 28, 53, "Notes",
 CellID->1067943069],
Cell[6832, 263, 832, 36, 25, "Notes",
 CellID->762256211],
Cell[7667, 301, 544, 13, 51, "Notes",
 CellID->331980428],
Cell[8214, 316, 293, 9, 39, "Notes",
 CellID->28334829]
}, Open  ]],
Cell[CellGroupData[{
Cell[8544, 330, 57, 1, 43, "TutorialsSection",
 CellID->250839057],
Cell[8604, 333, 45, 1, 16, "Tutorials",
 CellID->341631938]
}, Open  ]],
Cell[CellGroupData[{
Cell[8686, 339, 83, 1, 30, "RelatedDemonstrationsSection",
 CellID->1268215905],
Cell[8772, 342, 58, 1, 16, "RelatedDemonstrations",
 CellID->1129518860]
}, Open  ]],
Cell[CellGroupData[{
Cell[8867, 348, 65, 1, 30, "RelatedLinksSection",
 CellID->1584193535],
Cell[8935, 351, 419, 8, 29, "RelatedLinks",
 CellID->1038487239]
}, Open  ]],
Cell[CellGroupData[{
Cell[9391, 364, 55, 1, 30, "SeeAlsoSection",
 CellID->1255426704],
Cell[9449, 367, 474, 14, 19, "SeeAlso",
 CellID->685936]
}, Open  ]],
Cell[CellGroupData[{
Cell[9960, 386, 57, 1, 30, "MoreAboutSection",
 CellID->38303248],
Cell[10020, 389, 46, 1, 16, "MoreAbout",
 CellID->1665078683]
}, Open  ]],
Cell[CellGroupData[{
Cell[10103, 395, 356, 11, 68, "PrimaryExamplesSection",
 CellID->880084151],
Cell[10462, 408, 147, 4, 70, "ExampleText",
 CellID->54502385],
Cell[10612, 414, 251, 5, 70, "Input",
 CellID->837669751],
Cell[CellGroupData[{
Cell[10888, 423, 2453, 66, 70, "Input",
 CellID->200594367],
Cell[13344, 491, 459, 11, 70, "Output",
 CellID->12296596]
}, Open  ]],
Cell[13818, 505, 172, 4, 70, "ExampleText",
 CellID->448669652],
Cell[13993, 511, 159, 4, 70, "Input",
 CellID->279459295],
Cell[CellGroupData[{
Cell[14177, 519, 1430, 42, 70, "Input",
 CellID->80171998],
Cell[15610, 563, 507, 13, 70, "Output",
 CellID->264251506]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[16166, 582, 100, 2, 70, "ExtendedExamplesSection",
 CellTags->"ExtendedExamples",
 CellID->1854448968],
Cell[CellGroupData[{
Cell[16291, 588, 125, 3, 70, "ExampleSection",
 CellID->1293636265],
Cell[16419, 593, 96, 1, 70, "ExampleText",
 CellID->115737142],
Cell[16518, 596, 122, 5, 70, "Input",
 CellID->232829353],
Cell[CellGroupData[{
Cell[16665, 605, 2943, 82, 70, "Input",
 CellID->361170273],
Cell[19611, 689, 2135, 55, 70, "Output",
 CellID->79155983]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[21807, 751, 416, 12, 70, "SeeAlsoSection",
 CellID->218889428],
Cell[22226, 765, 148, 3, 70, "ExampleSection",
 CellID->1020263627],
Cell[CellGroupData[{
Cell[22399, 772, 127, 3, 70, "ExampleSection",
 CellID->2061341341],
Cell[22529, 777, 130, 3, 70, "ExampleSubsection",
 CellID->1757724783],
Cell[22662, 782, 130, 3, 70, "ExampleSubsection",
 CellID->1295379749]
}, Closed]],
Cell[22807, 788, 131, 3, 70, "ExampleSection",
 CellID->258228157],
Cell[22941, 793, 142, 3, 70, "ExampleSection",
 CellID->2123667759],
Cell[23086, 798, 135, 3, 70, "ExampleSection",
 CellID->1305812373],
Cell[23224, 803, 140, 3, 70, "ExampleSection",
 CellID->1653164318],
Cell[23367, 808, 132, 3, 70, "ExampleSection",
 CellID->589267740]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
